Public Class Logic

    Public UID As String = String.Empty
    Public ParentUID As String = String.Empty
    Public Logic As String = String.Empty
    Public QuestionID As Integer = -1
    Public SortID As Int16
    Public Locked As Boolean

    Public Sub New(ByVal currentGUID As String)
        Me.UID = currentGUID
        Dim _logic As Logic
        _logic = InstrumentODS.GetInstrumentLogic(currentGUID)
        If Not _logic Is Nothing Then
            Me.ParentUID = _logic.ParentUID
            Me.Logic = _logic.Logic
            Me.QuestionID = _logic.QuestionID
            Me.SortID = _logic.SortID
            Me.Locked = _logic.Locked
        End If
    End Sub

    Public Sub New()
    End Sub

End Class
